(rmail-process-new-messages): Use

rmail-header-get-header instead of mail-fetch-field.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 2ba49a25bb7eddf7f422fdc18a9ecf4bdcab834d..8a6e4b57473b92272a802c870fdf195f98de7d75 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -2043,7 +2043,7 @@ non-nil then do not show any progress messages."
                                     date
                                      (count-lines start end)
                                     (cadr (mail-extract-address-components
-                                           (mail-fetch-field "from")))
+                                           (rmail-header-get-header "from")))
                                      (rmail-header-get-header "subject")))
                         message-descriptor-list)))))
     ;; Add the new message data lists to the Rmail message descriptor